VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CControler"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private WithEvents m_btnConvert As CommandButton
Attribute m_btnConvert.VB_VarHelpID = -1
Private WithEvents m_btnOpenMdb As CommandButton
Attribute m_btnOpenMdb.VB_VarHelpID = -1
Private WithEvents m_dlgOpenMdb As CommonDialog
Attribute m_dlgOpenMdb.VB_VarHelpID = -1
Private WithEvents m_txtMdbFile As TextBox
Attribute m_txtMdbFile.VB_VarHelpID = -1
Private WithEvents m_txtSQLite As TextBox
Attribute m_txtSQLite.VB_VarHelpID = -1
Private WithEvents m_lbTalbeName As Label
Attribute m_lbTalbeName.VB_VarHelpID = -1
Private WithEvents m_pbTotal As ProgressBar
Attribute m_pbTotal.VB_VarHelpID = -1
Private WithEvents m_pbSubItem As ProgressBar
Attribute m_pbSubItem.VB_VarHelpID = -1



Public Sub Init(btnConvert As CommandButton, btnOpenMdb As CommandButton, _
                dlgOpenMdb As CommonDialog, _
                txtMdbFile As TextBox, txtSQLite As TextBox, _
                lbTableName As Label, _
                pbTotal As ProgressBar, pbSubItem As ProgressBar)
    Set m_btnConvert = btnConvert
    Set m_btnOpenMdb = btnOpenMdb
    Set m_dlgOpenMdb = dlgOpenMdb
    Set m_txtMdbFile = txtMdbFile
End Sub

Private Sub m_btnOpenMdb_Click()
    m_dlgOpenMdb.ShowOpen
    m_txtMdbFile.Text = m_dlgOpenMdb.FileName
End Sub
